- I The following programs are the sole property of Avid Technology, Inc., } 

11 I and contain its proprietary and confidential information. 1 

* I Copyright © 1989-1992 Avid Technology, Inc. I 

* \ / 

* 

* Module Name: mf reallocate. c 

* Module Description: 



i include 



nfm allocate. h" 



^include "AvidGlobals.h" 

# include "expansionDef s.h" 

^include "Linkllst.h" 

^include "mfm.h* 

^include "disJcjnac.h" 

^include "memmns.h" 

* include "Digitize. h" 

# Include - LogicalToPhy sical . h " 

# include "channel. h" 

# include "ResourceBible.h* 

# include "env.h'' 

^include "uid. h" 

* Include "MacUtils.h- 

* include "DebugUtlls.h* 

« include "VolumeMenu.h* 

^include "JPEGUtils.h" 

* include ■ Exception . h" 

# include "dialogUtils . h" 
* include "FSutils.h" 
^include M Base£rrorDef s . h" 
* include "autorequest-h* 

j include "RescurceDefs.h" 

§ include "v ideoDef s.h" 



Scerine BREATHING ROOM 200 



/* K3 to leave for direcrorv exoansion '/ 



Tdefine DIG_M0Dc 
#cefine LCG_M0D£ 

typedef struct 



{ 

MFM_CRCJX 
short 
channe!_r 
long 
long 
long 
} mfm_alloc_C, 

* ;nf;n_aiIoc_ptr, 

* "rr.f.T. alloc hdl; 



crux; 
vRef ; 
channel; 
bytes Per Sec; 
blocks TcAl ioc ; 
biccxSize; 





Static Variables 










static 


iistID 


alloc - NIL; 








scat-ic 


u_lcng 


App r c x f rar.e S 1 z e 








static 




rheCacMcce 








static 


Ftype_t 


cnef type 




0 ; 




static 


float 


theCapRate 




n - 




static 


MFM CRUX 


theVcrux 




0; 


// 


sea tic 


MFMjCRUX 


theAlcrux 




0; 




sratic 


MFM CRUX 


theA2crux 




0; 




scacic 


shore 


rheWref 




aADJ/REFNUM, 








theAvref 




SAD VREFKuM; 




s cade 


Icng 


cheSampsPerSec 




0, 








the3ytes?erS amp 




0; 




static 


long 


cheTiaeAvail 




0; 


// 



// When these are zero the cruxes are cio. 



// the minimum of the tiir.es available in 



scacic 


videoFormac_c 


cheVideoFormaC 


- 


?AL_f; 


scacic 


source Forma c_c 


cheSourceFo rmac 


- 


VIDEO f; 


scacic 


videoType_t 


CheVideoType 




{8, VMHiResHiColor); 


s cac ic 


LdULLJIc rnai>K. V. 


Lne\_apcureMas k 




AT • 


scacic 


capcu re jna s Jc_C 


theResulcMasic. 




OL; 


scacic 


u_char 


theCapShlft 




0; 


scacic 


u_char 


theResultShlfC 


= 


0; 


scacic 


channel_t 


theChannels 




0; 


scacic 


audioCloc)c_C 


theAudioClock 




Clock44100; 


scacic 


dUU±Uf%a Lc C 


cheAudioRaCe 




halfRace; 


sCacic 


Boolean 


CheAudioMixed 




FALSE; 


scacic 


3oolean 


useEmptiestVideo « TRUE, 






'j se £~vs c ie s tA ucl « 


a = TRO:.; 













// more likeiy Co cacch bugs by ir.ici: 
// HACK for now 



scacic 
scacic 
scacic 
scacic 
scacic 
scacic 
scacic 
scacic 



void 

void 

MFMjCRUX 

void 

void 

void 

long 

void 



scacic videoModlfier t 



setVlnfo< Ftype_C Ftype, capturejnask_c captureMasJc, u_char capcureShift, f 
amMItem2Val ( shore tnlcem, audioCloc)c_t * audi oC lock:, audio Rate_c * audioRace, 
mf aAllocCreace (long bycesPerSec, short vref, channel_c channel, Boolean pre 
mf aAllocCalc (Boolean pref light J . 
mf aAllocEnd (void) ; 
mf aAllocPunt (void) ; 
TotalBytes (short Che Vref ) ; 
checkVoluraeSettings (void) ; 

getVideoModifiert shore iQualicy, short cQuality) ; 



icac capcu. 

ong T aucL 
flight); 



/********* 



r**** ****** ************** *********************/ 

Public Code 



**** i 



/*****************************************************»»********«*********»******■»*****• 
* 

* mfaSecSectings 
•/ 

Boolean mf aSetSettings ( channei_t chans, fioac capRace, u_char phase, 

audioCiocx_t audioClock, audloRate_t audioRace, Boolean audicMixed, 
short Vvref, short Avref, vicecType_c video_ty?e) 

i 

Boolean needsRelnit; 

mfaforgecFiles <OUT_ALL) ; 
needs Re i nit = FALSE; 

i f ( 1 C ks u-Va 1 id [ c k_4 4 kh z ) £« aucicPace = fullRate) 

audioRace - halfRace; 
if <;c:<sumValld(c)c_485ciiz] ) 

audioClock - Ciock44100; 

if (theCapMoce = DZGJOJZ a (cheChar.r.eis 1* chans I I 

tneCapRace ■=» capRace i i 
cheAudioCiock 1= audioClock. I I 
cheAudloRace != audioRace I ! 
CheAudioMixed > auclcMixec) ) 

needs Re iniC - TROE; 



Sec che mfm_allocace scaclcs 

cheChanneis =» chans; • '~ 

cheCapRace =• capRace; 
cheAuciioClock. audioClock; 

cheAudioRate - audioRace ; 

cheAuaioMixed = audloMixed; 

cheVvref - Vvref; 

cheAvref - Avref; 

useEmpciescVideo - (theWref = SAD VREFNCM1 ; 



v.. 

useFmptlestAudio = (cheAvref = aADJ/HEFNUM) ; 

xprotect 
{ 

checkVolumeSettings (); 
} 

xexcsDcion 
i 

if (IxcodeEquals (MFA_NO_MEDIA_D RIVES) ) 
xpropagate 0 ; 

auto_request ("You will not be able digitize until a validXnmedia volume is placed online.", ••OK", 1); 
} 

xenc; 
/* 

* SetuD video caoture mode info 

*/ - 
switch { (lnt) (theCapRate*10) ) 
{ 

case 240: 

if ( phase 0) 







setVinfo 


(FULL, 


0XD8000O0OL, 


o, 


24.0, 


OxSOOOOOOOL, 


0); 




// 


1101 


lxxx 


,4 


cu* 


else if { phase 


1) 




























setVinfo 


(FULL, 


OXB8000000L, 


0, 


24.0, 


0X80000000L, 


0); 




// 


1011 


lxxx 


,4 


cj- 


else if ( phase — 


3) 




























setVinfo 


(FULL, 


0x78000O00L, 




24.0, 


Ox80000000L, 


0); 




// 


0111 


lxxx 


,4 


OU" 


else 


































setVinfo 


(FULL, 


QxE8000000L, 


o, 


24.0, 


OX80000000L, 


0); 




// 


1110 


lxxx 


,4 


cu- 


breaks- 




























case 120 






























if { phase — 0 1 J 


phase 


= 1) 


























setVinfo 


(FULL, 


0x48000000L, 


2, 


12.0, 


0X40000000L, 


1); 




// 


0100 


lxxx 


,2 


OU" 


else 


































setVinfo 


(FULL, 


Ox29000000L, 


2, 


12.0, 


OX40000000L, 


1); 




// 


0010 


lxxx 


,2 




break; 




























case 60 




setVinfo 


(FULL, 


Ox08000000L, 


4, 


6.0, 


0X10000000L, 


3) ; 


break; 


// 


0000 


lxxx 


/ - 


OU' 


case 3CC 




setVIr.fo 


(FULL, 


CxSCCCCOCCL, 


•» » 






0); 


break; 


// 


lxxx 


xxxx 


1 

/ - 


ou- 


case 150 




setVinfo 






± * 


15. Z, 


- 


1); 


breaks- 


// 


GZ.XX 


xxxx 


1 

# - 




case 100 




setVinfo 


(FULL, 


Ox20000GOOL, 


2, 


10. 0, 


0x2G0CG00GL, 


2); 


break; 


// 


00 Ix 


xxxx 


/ 1 


OU' 


case 250 




setVinfo 


(FULL, 


OxSOOQOOOOL, 


0, 


25.0, 


Ox80000000L, 


0); 


break; 


// 


lxxx 


xxxx 


1 - 


CU" 


case 125 




setVinfo 


(FULL, 


Ox40000000L, 


1, 


12.5, 


0X4O00O000L, 


1); 


breaks- 


// 


Olxx 


xxxx 




CU' 


case 50 




setVinfo 


(FULL, 


OX08000000L, 


4, 


5.0, 


0X08000000L, 


4); 


break; 


// 


0000 


lxxx 


1 

/ - 


OU' 



} 



tr.eScurceFormat = source? crmat; 

theVicaorormat - viceoForrr.at; 

z heVi ceo Type . vcID = cVideoType. vcID; 

tr.eVideoTVoe . vicecMoclfier - video zvce. videcModif ier 



// Get it 
// Get it 
// Get it 



from global r.o 
from clcbal no 



SetDigitizeCaptureMask itheCaptureMask, theCapShif tJ : 



/* 

5etuo audio caoture mode info 

•/ 

-.-.eSa-csPerSec = ( (audioRata = full Rata) ? (audioCiockToClcckRate (aucioCicck) ) : (auclicClcckrcClcck. 

the=ytes?erSam? = (audloRate — fuilRate ? 2 : 1); 



return needs Re init; 

) 



Addresses of hardware registers: 



divect 
dpytrap 
mode 
status 

vsblnk 

vtotal 

dpyctl 

dpystrt 

dpyint 



Ir.tarJb 

intpend 

convsp 

convctp 

psize 

pmask 

pmaskext 



.set 
.set 
.set 
.set 

.set 
.set 
.set 
.set 
.set 
.set 
. set 
. set 
.set 
.set 
.set 
.set 
.set 
.set 



OfffffeaOh 
OfffffeaOh 
0f8600000h 
OfS290000h 

0c0000060h 
0c0000070h 
Oc0000080h 
Oc0000090h 
OcOOOOOaOh 
OcOOOOObOh- 
C^CCCCC f Ch 

^ ^ ^ -» 

0c0000130h 
0c00O0140h 
OcOOOOlSOh 
0cOO0O16Oh 
Oc0000170h 



;the Display-Interrupt vector location 
; address of OPYINT trap vector 
; video mode register 
; video status register 

gsp control registers: 
total vertical lines 



* Constants 

msginmsk 

msgoutmsk 

msginisave 

msgindbg 

msgir.trusk 

msginf2 

msgoutisave 

ms gout dbg 

msgoutf2 

msgoutinc 

intin 

intout 

ctimsk 

di 

disc 4 — 

notinteri 

ce_bit 

di 

special 
pa ILines 
r.t 3cLir.es 
rcvcasa 
"raps 
.r.acrcws 
vrcvs 
rrcws 

iTiaX J lcr-d 

praesircw 
NV5L3IT 



pixsize 
csrrice 



and masks: 



.set 
.set 
.set 
.set 
.set 
.set 
.set 
.set 
.set 
.set 
.set 
.set 
.set 
.set 
. set 
.set 
.set 
. set 
.set 
.set 
.set 
.set 
.set 
.set 
. set 
.set 
.set 
.set 
.set 
.set 
. set 
. set 
. set 
.set 



0007h 
0Q70h 
O002h 
0007h 
0008b 
0003h 
0020h 
0070h 
0030h 
OOlOh 
0008h 
0080h 
SGlfn 
10 



i«ni 

eoooh 

10 

2000000h 
576 

* OQ 

OfffffcCGh 
480 

calLlr.es * 3 
pa llir.es/ 2 
paijjines/ 2 
8000h 
4 

4000h 
14 
16 
54 



; Fields in hstctll register 



rir.tin field in hstctll 



Mask for the CONTROL register. 

Bit number of Display Interrupt bit 

"!?isriay Interru-r* bit of ir.certb and intper.d 

Sit number of >:ck Interlaced bit 

The non-interlaced bit 

"Caoture Enable" bit of video mode register 

Sit number of Display Interrupt bit 

Offset for special JPEG hardware fifo "memory space" 

Number of lines in a frame 

m. — --y w ^ <= i ^ *~qs * n a *ra.me 

row table main picture starting acriress 

accr^ss of trap page 

mac row table entries 

video rows 'in row table (inci color table i PAL) 
Maximum * lines in a field (pal is larger) 
maximum f of lines in a field 

length in bits of physical memory rows 



Not vertical Blanked 



oit dos mien 



(16-'clt oixei) lines [2 



in video status reg 
c3) 



3 |r-n f MAC 

Shifting a number by this multiplies by cpltch 

Pixel size constant for "psize" register 

Number of bits between pixel "hits' in output image 



tr.cNcr.e 

cmcPiay 

cmdPack 

cmcUnpack 

cmdShow 

cmdf uii 

cmc3ic?ack 

cmd3 igC'npacx 

cmdCJnpackAcd 

cmcUnpack 16 

crr.dPacicl = 



.set 3 /undefined cormand code 

.set I ; normal multi-frame playback to alternate screen buffer 

.set 2 ; (UNUSED in FuliRes ) Pack 256*192 image 

.set 3 ; unpack still frame to vcopy double buffer area (decompress) 

.set 4 .unpack and show a still frame in main screen buffer 

.set 5 ; full-screen playback on an NTSC monitor 

.set 6 ; pack a 640x480 image 

.set 7 ; unpack an image to 640*480 

. set 8 ; unpack and combine an image 

.set 9 ; unpack a 16 bit frame in 32 bit mode 

.sec 10 ; oack a 16 bit frame in 32 bit moce 



vram3ase 
l rameBur* 
bic3uf 



.usect "vectci 

. usect "vectors " , 32 

. usee I "vectors " , 32 



* Routine Co sync to an odd field: 



syncodd: 




si move 


'Rstatp, Rtemp 


best 


0 , Rtemp 


jrnz 


si 


-eve 


'Rstatp, r\ta-.p 


ctst 




jmz 


si 


s2 sove 


*Rsta;rp;Rtamp 


best 


0 , Rtenra 


]rz 


s2 


move 


*Rstatp, Rtemp 


best 


0,Rtemo 


1« 


s2 


rets 





* Routine 
synceven : 
s3 move 
ocst 
Jrz 
r.cve 



s4 



move 
best 
jmz 
move 
best 



to sync to an even field: 

*Rstatp, Rtemp 

0 , Rtemp 

s3 

*Rscatp, Rtemp 

Z , Rtemp 

s3 

*Rstatp,Rtemp 

0 , Rtemp 

s4 

T Rstacp # Rtema 



mi: cry 



oricin - OfffOOOOCh, 



lencth =» OcSOQOh 



. cat a : 
. taxt : 
: status : 



[ i > 

[} > SCttAP 

{ } > MAP 9 £2 

( } > JSTAT 



.title "VISTA Image capture and compress" 

. / \ 

T I The following programs are the sole property of Avid Technology, Inc., I 

* ! and contain its proprietary and confidential information. I 

* | Copyright © 1989-1991 Avid Technology, Inc. I 

* \ / 



* General register names: 


Rtemp 


. set 


AO 


'Tpmn realster 




. set 


Al 


•rnncranr P1 yp! <; nor 1 tno 


Rpixel 


.set 


A2 


•Pointer to current input pixel 


Rpxincl 


.set 


A3 


•Constant * of bits to increment Rpixel to next input pixel 


Rpxir.c2 


. set 


A4 , 


■Alternate Constant to increment Rpixel to next input pixel 


Aline 


. set 


A5 


•Constant Pitch of an input line in bits (same value as Sptch) 


Rpixtmp 


.set 


A6 


•Temp register for writing to pixel locations 


Rjstatp 


.set 


A7 


•Constant pointer to JPEG fifo status 


Rx 


.set 


A8 


; Counter of pixels in a line 


Rnext 


. set 


A9 


•Pointer to next Input line 


Rstatp 


.set 


A10 


; Constant pointer to video status 


Bblack 


. set 


All 


; Pointer to a black pixel 


Rtemp2 


.set 


A12 




R13 


.set 


A13 




R14 


.set 


A14 





Saddr 


.set 


BO 


; Source pixel array starting address 


Sptch 


.set 


Bl 


/Source pitch {# of bits from one line to next) 


Offset 


.set 


B4 


;3ase address of source pixel array 


3xy 


.set 


B7 


;Pixel array dimensions (rows: columns) 


Riincnt 


.set 


39 


;Constant: lines per frame 


*y 


.set 


310 


/Counter: lines per frame 


Reap tu re 


.set 


311 


;9it mask: frame skipper 


Rloadcap 


.set 


B12 


;Bit mask: used to teinit Rcapture 


RBI 3 


.set 


B13 




RBI 4 


.set 


314 





pixr.sk .set SCCCh /Constant for "pmask" register (kill alpha chan) 
spit or. .set aOOCh /Constant for "Sptch" register (4 kSytes in bits) 



.ccov 



"eouates.l" 



jstatus .usect "j status", 16 

* Args TO <- and FROM -> the 

ir.itcm. . -sect "arcs", 32 

capers. k .usect "args", 32 

overrun .usect "args", 32 

fraT.es .usect "arcs", 32 

tcummyl .usect "arcs", 32 

td*ummy2 .usect "args", 32 

tx .usect "args*, 32 

iy . usect "arcs", 32 

tstridel .usect "args", 32 

t3~rlce2 .usect "arcs", 32 

-relay .usect "args", 32 



;JPEG fifo status 

NuVIsta processor: 

<- initial capture mask 

<- re load capture mask 

->n umber of overruns detected (inited by Mac) 

-> number of frames seen (inited by Mac) 

"fence" arg in other ucode <- 

" fence rr" arg in other ucode -> 

<-number of x iocs to hit 

< -number of y Iocs (lines) to hit 

ostride in bits between Input pixel Iocs 

<-ait st rice in bits between input pixel Iocs 

<-a.T,cunc of delay before capturing each line (cefaui" 



.ccov "caocuraMacros.i" 



stack: . bes 



4000h 



; Stack space (2k3) for calls and interrupts 



.page 
. text 
.ailcn 



Dat: 



. long 



Debug: Current value of pixel fifo status 



.long 0,0,0,0,0,0,0,0 ; Reserved for debug info 



•c c 

r Scare of main program 

.del jnaln 
jnain 

setf 16,0,0 ; Field zero is 16-bit unsigned 

serf 32,0,1 ; Field one is 32-bit unsigned 

movi stack, sp ; Load stack pointer 

movl spltch, Sptch ; Load contstant number of bits per line 

move Sptch, Rline 

movi pixmsk, Rtemp ; Init pixel mask 

.T.ovG Rtesp, •} pmasx 

nova Rtemp , 3 pmas ke xt 

movi jstatus+8,Rjstatp ; Load pointer to JPEG status register 

clr Rpixtmp ; Clear pixel temp 

movi status, Rstatp ; Load pointer to video status register 

* Clear DONE and wait for GO: 
clr Rtemp 

movb Rtemp,ghstctil ;clear msgout {the DONE bit and interrupt bits) to host 
hosths : 

movb Shstctll, Rtemp ;read host control register 

and! msginmsk, Rtemp ;mask message 

jrz hosths ;wait for GO signal (any non-zero value) 

movi msgoutinc , Rtemp 

move Rtemp,3hstctll ;set indicator to let host know we have started 

* Get some host args into registers: 

-eve 3tx, Rpixcr.t, i /number of stores in x 

move (?ty,Rlincnt, 1 ; number of lines in frame 

move 3tstridel,Rpxincl, 1 /number of bits between pixels 

move 9tstride2,Rpxinc2, 1 ;alt number of bits between pixels 

For debug, write parameters back to memory: 

movi Dat, Rtemp ;get addr of debug dump area 

move Rpixcr.t, *Rtemp-r, 1 ;x 

move Q ty , * Rtemp-*- ,1 ; y 

move Rpxincl, -Rtemp+, 1 ; stride 1 

-eve Rpxinc2, * Rtemp-!-, 1 ; stride 2 

move Rline, *Rtemp+,l ;source pitch in bits {number of bits from one line to the next) 

* M.3- The x argument (Rpixcnt) MUST be a multiple of 32! 

srl 5, Rpixcr.t ; divide line length <x) by 32 for unrolled leep 

cailr syncocd ; FIRST TIME: Wait for start, of odd field 

move 3moce, Rtemp 

cri ce_oit, Rtemp ; set the global capture enable bit (begins digitizing) 

mc ve Rtemp, 3 mode 

move ginitoi, Rcapcure, 1 /load initial capture mask 

r.cve 3caprmsk, Rioaccap, 1 ; lead value to reinitialize capture -ask 

r.cvl black-special, Hbiack /address of black ("0") 

j-rJC frame 

clack: 

.long 0,0 

.align /align the following code with the I -cache 

skpfram: /come here to skip capturing a frame 

caiir synceven * 

cailr syncodd 



Attempt capturing a frame: 



frame: 

* Count the frame (N.3. We must count every frame seen, whether captured or sklppea) : 

move 0 frames , Rtemp , 1 

adck 1, Rtemp ; count 

move Rtemp , g frames , 1 



* Decide whether this is a frame we want, based on capture mask.: 



1, Rcapture 
skpfram 
mskok 

Rloadcap, Rcapture 



; check next mask bit (it goes to C-blt) 

;skip this frame if C-bit is zero (last active bit guaranteed to be 1) 
/check if need to reload mask bits: yes->fall thru 
; reload the capture mask (32 bits) for next time 



sll 
jmc 
jrnz 
move 
mskok: 

* Prepare for "lines" loop: 

move SvramSase, Rpixel , 1 
subi soecial, Roixei, 1 

movi capture-special, Rpixel ; starting address of video frame bufr (Special space) 
move Rpixel, Rnext /remember address of first line 

move Rlincnt,Ry ;get number of lines in frame 

* Check video field (s/b ODD from compressing prev frame or from syncodd after hosths or skpfram) . 

* (N.3. Assumes compression takes more than one field time <~l/60th second), but less than a frame time.) 

callr syncevck ;wait for start of even field (i.e. digitizing complete) 

* Add 3 lines of black to the top of the picture: 



movk 


8, Rtemp2 


; eight groups of one line 


blk 






move 


Rpixcnt, Rx 


;pixels-per-line / 32 


sli 


5-2, Rx 


;calc the loop count ( *32 * / 4 hits -per- 


loop2b: 




;read JPEG pixel fifo status 


movb 


*Rjstatp, Rtemp 


* move 


Rtemp, SFiag, 0 


; *»*debug*** 


jrnn 


loop2b 


;wait until fifo ready (bit7 =- 1) 


blkloop 




;each write causes auto xfer(s) to JPEG ; 


move 


Rpixtmp, *Rblack,0 


move 


Rpixtmp, *Rbiack,0 




move 


Rpixtmp, 'Rblack, 0 




move 


Rpixtmp, *Rblack, 0 




dsjs 


Rx, blkloop 


;1 line of oixeis 


GSjs 


Rtemp2,blk 




* Send frame Interrupt to the 


t^ac: 


move 


8hstctli,Rtemp 


;get hstctll value 


ori 


in tout, Rtemp 


;set interrupt bit 


move 


Rtemp, 3hstctll 


;send to host to indicate frame start 


* Start of 


loop to process all 


lines of a frame: 


li~es: 






add 


Riine,Rr.ext 


;calc addr pf next line 


rr.cve 


Rpixcnc, Rx 


; {re) load x' count (pixels -per- line / 32) 


move 


Stdelay, Rtemp2, 1 


;0E3UG 


"loop 2d: 






csls 


Rtemp2 , loop2d 


; DEBUG 


-cvb 


'R^scacp, Rtemp 


; read JPEG pixel fife status 


r.cve 


Rtemp, 3t lag, 0 




;nn 


locp2^ 


.-wait until fifo ready <olt7 = 1) 


locp2: 






move 


Rpixtmp, 'Rpixel, 0 


;this write causes auto xfer(s) to JPEG 


add 


Rpxincl, Rpixel 


;now advance to next pixel 


move 


Rpixtmp, 'Rpixel, 0 


;2 


add 


Rpxinc2, Rpixel 




move 


Rpixtmp, 'Rpixel, 0 


;3 


add 


Rpxincl, Rpixel 




move 


Rpixtmp, 'Rpixel, 0 


;4 


add 


Rpxinc2, Rpixel 




.T.ove 


Rpixtmp, 'Rpixel, 0 


; 5 



add 


Rpxincl, Rpixel 




move 


Rpixtmp, -Rpixel, 0 


;6 


add 


Rpxinc2, Rpixel 




move 


Rpixtmp, -Rpixel, 0 


;7 


add 


Rpxincl, Rpixel 




move 


Rpixtmp, 'Rpixel, 0 


;8 


add 


Rpxinc2, Rpixel 




move 


Rpixtmp, "Rpixel, 0 


;9 


add 


Rpxincl, Rpixel 




move 


Rpixtmp, *Rpixel, 0 


;10 


add 


Rpxinc2, Rpixel 




move 


Rpixtmp, * Rpixel, 0 


;ll 


add 


Rpxincl , Rpixel 




move 


Rpixtmp, * Rpixel, 0 


;12 


add 


Rpxinc2, Rpixel 




move 


Rpixtmp, **Rpixel, 0 


;13 


add 


Rpxincl, Rpixel 




move 


Rpixtmp, *Rpixel,0 


;14 


add 


Rpxinc2, Rpixel 




move 


Rpixtnrp, *Rpixel,0 


;15 


add 


Rpxincl ,RpLxel 




move 


Rpixtmp, *Rpixel,0 


;16 


add 


Rpx±nc2, Rpixel 




move 


Rpixtmp, *Rpixel, 0 


;17 


add 


Rpxincl, Rpixel 




move 


Rpixtmp, * Rpixel, 0 


;18 


add 


Rpxinc2, Rpixel 




move 


Rpixtmp, *Rpixel,0 


;19 


add 


Rpxincl , Rpixel 




move 


Rpixtmp, -Rpixel, 0 


;20 


add 


Rpxinc2 , Rpixel 




move 


Rpixtmp, *Rpixel,Q 


;21 


add 


Rpxincl, Rpixel 




move 


Rpixtmp, -Rpixel, 0 


;22 


add 


Rpxinc2, Rpixel 




move 


Rpixtmp, -Rpixel, 0 


;23 


add 


Rpxincl, Rpixel 




move 


Rpixtmp, -Rpixel, 0 


;24 


add 


Rpxlnc2, Rpixel 




move 


Rpixtmp, *Rpixel, 0 


;25 


add 


Rpxincl, Rpixel 




move 


Rpixtmp, 'Rpixel, 0 


;26 


add 


Rpxlnc2, Rpixel 




move 


Rpixtmp, *Rpixel, 0 


;27 


add 


Rpxincl, Rpixel 




move 


Rpixtmp, -Rpixel, 0 


;29 


add 


Rpxinc2, Rpixel 




move 


Rpixtmp, -Rpixel, 0 


;29 


add 


Rpxincl , Rpixel 




move 


Rpixtmp, -Rpixel, 0 


;30 


add 


Rpxinc2, Rpixel 




move 


Rpixtmp, -Rpixel, 0 


;31 


add 






move 


Rpixtmp, -Rpixel, 0 


;32 


add 


Rpxinc2, Rpixel 




CS] 


Rx, loop 2 


loop Zl 


move 


Rnext, Rpixel ;load a< 


osj 


Ry, lines 


loop f 


callr 


syncocid 




Irjc 


frame 





If we're in odd field, it too* too lcnc - 



The following routines sync the code zo 
N'oce: Since che scatus register Is nor 
ciocx, we must always check: chat 



rhe Incoming video fields. 

synchronized with uhe 34010 instruction 

we get the same reading twice In a row. 



* Walt for scare of next even field; check to make sure field is already CCD at encry. 

* (If we enter here in an even field, it means an OVERRUN has occurred.) 
syncevck: 



if even, go check a second time; fall thru if odd 
if even, go check a second time; fall thru if odd 
loop as long as it remains odd 



make sure we see it the same twice in a row 
normal successful return at start of an even fieid 



* come here if we found an even value one time: 

s5el move *Rstatp, Rtemp ; perform second test for even 
btst 0, Rtemp 

jrnz s5ol ; jump back if second check is okay (odd) 

* else, fail thru 

* At this point we have an overrun (two evens in a row) , so count it 



s5 


move 


*Rstatp, Rtemp 




btst 


0,Rtemp 




jrz 


sSel 


s5ol 


move 


*Rstatp, Rtemp 




btst 


0, Rtemp 




jrz 


sSel 


s6 


move 


*Rstatp, Rtemp 




btst 


0, Rtemp 




jrnz 


s6 




move 


*Rstatp, Rternp 




btst 


0, Rtemp 




jrnz 


s6 




rets 





s7 



move 


eoverrun, Rtemp, 1 


addk 


1, Rtemp 


move 


Rtemp, eoverrun, 1 


move 


*Rstatp, Rtemp 


btst 


0 , Rtemp 


jrz 


s7 


move 


♦Rstacp, Rtemp 


btst 


0 , Rtemp 


jrz 


s7 


jruc 


s6 



In the even field already... increase overrun count 
We know it is even, so now we need to wait for odd 



.end 



TITLE: UNTITLED01 
FCM: NON-DROP FRAME 

001 050 V C 

M2 050 030.0 

002 050 V C 

M2 C50 030.0 

003 050 V C 

M2 050 030.0 

004 050 V C 

M2 050 030.0 



04:11:23:21 04:11:37:19 

04:11:23:21 
04:03:14:26 04:03:20:01 

04:03:14:26 
04:11:37:19 04:11:55:29 

04:11:37:19 
04:04:51:01 04:04:56:13 

04:04:51:01 



01:00:00:00 01:00:13:28 

01:00:13:28 01:00:19:03 

01:00:19:03 01:00:37:13 

01:00:37:13 01:00:42:24 



FCM: 




FKAME 












CGI 


THEY C 


V 




04:11:23:21 


04:11:37:19 


01:00:00:00 


01:00:13:23 


M2 


THEY C 




030.0 




04:11:23:21 






002 


THEY C 


V 


C 


04:03:14:26 


04:03:20:01 


01:00:13:28 


01:00:19:03 


M2 


THEY C 




030.0 




04:03:14:26 






003 


THEY C 


V 


C 


04:11:37:19 


04:11:S5:29 


01:00:19:03 


01:00:37:13 


M2 


THEY C 




030.0 




04:11:37:19 






004 


THEY_C 


V 


c 


04:04:51:01 


04:04:56:13 


01:00:37:13 


01:00:42:24 


M2 


THEYjC 




030.0 




04:04:51:01 







Avid Technology, Inc. 

Assemble list for edl file picture: 



4? 



Seq 

/-001 
I 

\-002 

003 

/-004 
I 

I 005 
I 

\-0G6 
007 

/-008 
I 

\-009 
010 
/-Oil 

I 

\-012 

013 

014 

015 

016 

017 

018 

019 

020 

/-021 
I 

\-022 



first edge 
OPTICAL Number 1 
end of optical 1 to 
KJ789876 -1370 +05 



last edge 



FADE IN 
scene end 
-1372 +05 

Scene start to start of optical 2 

DISSOLVE 
scene end 
-1243 +09 



OPTICAL Number 2 
end of optical 2 to 
KJ789876 -1236 +02 



Scene start to start of optical 3 



OPTICAL Number 3 
LEADER -0000 +00 
OPTICAL Number 4 
end of optical 4 to 
KH123456 -5085 +05 
KJ789876 -1399 +05 
LEADER -0000 +00 
KH123456 -5132 +02 
KH123456 -5053 +15 
KH123456 -5083 +00 
KJ789876 -1244 +09 
XJ789876 -1453 +07 



FADE OUT 
-0089 +15 
FADE IN 
scene end 
-5091 +10 
-1409 +08 
-0003 +14 
-5142 +04 
-5057 -rli 
-5083 +13 
-1248 +09 
-1464 +11 



Scene start to starr of optical 5 



OPTICAL Number 5 



FADE OUT 



length 
1+08 
4+02 
2+01 
1+04 
3+00 
7+05 
7+08 
2+04 
1+08 
90+00 
1+08 
1+08 
6+06 
10+04 
3+15 
10+03 
3+13 
0+14 
4+01 
11+05 
5+02 
1+08 



cum 
1+08 
5+10 
7+11 
8+15 
11+15 
19+04 
26+12 
29+00 
30+08 
120+08 
122+00 
123+08 
129+14 
140+02 
144+01 
154+04 
158+01 
158+15 
163+00 
174+05 
130+07 
181+15 



Camera Roll 
EFFECT 
Flat #1 

i let 

Flat #1 
EFFECT 
Flat #1 
Flat #1 
Flat #1 
EFFECT 
LEADER 
EFFECT 
Flat #1 
Flan #1 
Flat n 
LEADER 
Flan ?! 
F Is. u ?1 
Flat #1 
Flan ?! 
Flat: ?1 
Flar t! 
EFFECT 



Avid Technology, mc. 



c 



X 



Assemble Pull List (scene pull in assemble order) for edl file picture: 
Tape name Segment Name first edge 



NAB 9 1 COMP ILATIONTAP E Flat #1 

NAB91COMPILATIONTAPE Flat #1 

NAB 9 1 COMP ILATIONTAPE Flat #1 

NAB 9 1CCMP ILATIONTAPE Flat U 

NAB 9 1CCMP ILATIONTAPE Flat #1 

NAB91COMP ILATIONTAPE Flat #1 

NAB 9 1 COMP ILATIONTAPE Flat #1 

NAB 9 1 COMP ILATIONTAPE Flat #1 

NAB91COMP ILATIONTAPE Flat #1 

NAB 91 COMP ILATIONTAPE Flat #1 



KJ789876 -1441 +15 
KJ789876 -1368 +13 
KH123456 -5019 +11 
KJ7S9876 -1327 +03 
KJ789876 -1234 +00 
KH123456 -5050 +05 
KJ789876 -1300 +01 
KH123456 -5083 +00 
KJ789876 -1393 +08 
KH123456 -5128 +02 



last edge 
-1575 
-1393 
-5050 
-1368 
-1300 
-5082 
-1327 
-5128 
-1441 
-5172 



length scene 

+03 133+05 

+07 24+11 

+04 30+10 

+12 41+10 
+00 66+01 

+15 32+11 

+02 27+02 
+01 45+02 
+14 45+07 
+05 44+04 



Avid Technology, Inc. 
Pull list for edl file picture: 
Sea first edge 

004 KH123456 -5020 +11 
008* KH123456 -5052 +06 
017* KH123456 -5053 +15 

018 KH123456 -5083 +00 
013 KH123456 -5085 +05 
016 KH123456 -5132 +02 
007 KJ789876 -1236 +02 

019 KJ789876 -1244 +09 
012 KJ789876 -1305 +03 
006 KJ789876 -1332 +01 



last edge roll 



see OPTICAL 2 
see OPTICAL 3 
--5057 +11 
-5083 +13 
-5091 +10 
-5142 +04 
-1243 +09 
-1248 +09 
see OPTICAL 4 
see OPTICAL 2 



Lab Roil 
Flat n 
Flat #1 
Flat #1 
Flat $1 
Fiat 
Flan 41 
Flat #1 
Flat #1 
Flat #1 
Flat *1 



length scene ta.<e 
1+04 1 2 



2+04 
3+13 
0+14 
6^06 
10+03 
7-r08 
4+01 
1+08 
7+05 



2 
2 

3 
3a 



003 KJ789876 - 

014 KJ789876 - 

021 KJ789876 - 
002 KJ789876 - 
020 KJ789876 - 

010 LEADER - 

015 LEADER - 
001 OPTICAL 
005 OPTICAL 
009* OPTICAL 

011 OPTICAL 

022 OPTICAL 



-1370 +05 
•1399 +05 
•1412 +08 
■1447 +03 
•1453 +07 
•0000 +00 
•0000 +00 
Number 1 
Number 2 
Number 3 
Number 4 
Number 5 



-1372 +05 
-1409 +08 
see OPTICAL 5 
see OPTICAL. 1 
-1464 +11 
-0089 +15 
-0003 +14 
FADE IN 
DISSOLVE 
FADE OUT 
FADE IN 
FADE OUT 



Flat U 
Flat #1 
Flat #1 
Flat #1 
Flat #1 
35mm LEADER 
35mm LEADER 
EFFECT 
EFFECT 
EFFECT 
EFFECT 
EFFECT 



2+01 
10+04 
6+02 
4+02 
11+05 
90+00 
3+15 
1+08 
3+00 
1+08 
1+08 
1+08 



9 
9 
9 
10 
10 



3 
3 
5 
5 



Avid Technology, Inc. 

Scene Pull List for edl file pic 

Tapename Lab Roll 



NAB 9 1 CCMP ILATIONTAP E Flat #1 

NAB91COMPILATIONTAPE Flat #1 

NAB91COMPILATIONTAPE Flat #1 

NAB91CCMPILATIONTAPE Flan Jl 

NAB 9 1 COMP ILATIONTAP E Flat #1 

NAB 9 1COMP ILATIONTAPE Flat #1 

NAB 9 1 CCMP ILATIONTAP E Fiat #1 

NAB 9 1COMP ILATIONTAPE Flat fl 

NAB 91 COMP ILATIONTAPE Flat #1 

NAB91CCMP ILATIONTAPE Flat #1 



first edge 



KH123456 
KH123456 
KH123456 
KH123456 
KJ789876 
KJ789876 
KJ789876 
KJ789876 
KJ789876 
KJ789876 



-5019 +11 
-5050 +05 
-5083 +00 
-5123 +02 
-1234 +00 
-1300 +01 
-1327 +03 
-1368 +13 
-1393 +08 
-1441 +15 



last edge length seen* 



-5050 +04 30+10 

-5082 +15 32+11 

-5128 +01 45+02 

-5172 +05 44+04 

-1300 +00 66+01 

-1327 +02 27+02 

-1368 +12 41+10 

-1393 +07 24-11 

-1441 +14 48+07 

-1575 +03 133+05 



Avid Technology/ Inc. 



Negative Dupe list for edl file picture: 



first edge 
Seq last edge 

008 KH123456 -5052 +06 

-5054 +09- 
017 KH123456 -5053 +15 
-5057 +11 

009 OPTICAL Number 3 



dupe negative start 
dupe negative end 

KH123456 -5052 +06 
KH123456 -5057 +11 



KH123456 -05054 +10 
KH123456 -05056 +07 



scene 
take 

2 
1 
2 
1 
2 
1 



roll 
Flat #1 
Flat il 
Flat #1 



Avid Technology, Inc. 

Optical effects list for EDL file picture: 

Type: Fade-in 
OUT: 



Num: 001 
Cut: 001 
Edl: 001 



Scene start: 
FADE start: 
FADE center: 
FADE end: 
Scene end: 



Roll : BLACK 

Scene: 

Take: 

BLACK 
BLACK 
BLACK 
BLACK 



(5 effects) 
Length: 1+08 (24 frames) 
IN: 

Roll: Flat #1 
Scene: 10 
Take: 5 



KJ78987S -C1445 +11 
KJ789876 -01446 +06 
KJ789876 -01447 +02 
KJ789876 -01451 +05 



Num: 002 
Cut: 005 
Edl: 004 



Type: Dissolve 
OUT : 

Roil: Flat #1 
Scene : I 
Take : 2 



Length: 3+00 (48 frames) 



^^^1 . "lat rl 

Scene: 7 



Scene start: 
DSLV start: 
DSLV center: 
DSLV end: 
Scene end: 



KH123456 -05020 +11 
KH123456 -05021 +15 
KH123456 -05023 +06 
KH123456 -05024 +14 



KJ789876 -01329 +01 
KJ789876 -01330 +08 
KJ789876 -01332 +00 
KJ789876 -01339 +05 



r 



( 



Num: 003 
Cut: 009 
Edl: 007 



Scene start: 
FADE start: 
FADE center: 
FADE end: 
Scene end: 



Type: Fade-out 
OUT: 

Roll: Flat #1 
Scene: 2 
Take: 1 

KH123456 -05052 +06 
KH123456 -05054 +10 
KH123456 -05055 +08 
KH123456 -05056 +07 



Length : 
IN: 



1+14 (30 frames) 



Roll: BLACK 
Scene : 
Take: 



BLACK 
BLACK 



BLACK 



Num: 004 
Cut: Oil 
Edl: 008 



Scene start: 
FADE start: 
FADE center: 
FADE end: 
Scene end: 



Type: Fade-in 
OUT: 

Roll : BLACK 
Scene : 
Take: 

BLACK 
BLACK 
BLACK 
BLACK 



Length: 1+08 (24 frames) 
IN: 

Roll: Flat #1 
Scene : 7 
Take : 1 



KJ789876 -01303 +11 
KJ789876 -01304 +06 
KJ789876 -01305 +02 
KJ739876 -01306 +10 



Num: 005 
Cut: 022 
Edl: 017 



Scene start: 
FADE start: 
FADE center: 
FADE end: 
Scene end: 



Type: Fade-out 
OUT: 

Roll: Flat #1 
Scene: 9 
Take: 3 

KJ789376 -01412 x 08 
KJ789576 -CI 413 +10 
KJ789876 -01419 +08 
KJ789876 -01420 +07 



Length; 
IN: 



1+14 (30 frames) 



Roll : BLACK 
Scene : 
Take: 



BLACK 
3LACK 
3LACK 
BLACK 



